home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VCM / VCM.MDB / VcmComponentContainer / 06_Cabinet / Start.Dsr < prev    next >
Encoding:
Text File  |  1998-05-18  |  2.6 KB  |  99 lines
  1. VERSION 5.00
  2. Begin {90290CCD-F27D-11D0-8031-00C04FB6C701} Start 
  3.    ClientHeight    =   4770
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   5985
  7.    _ExtentX        =   10557
  8.    _ExtentY        =   8414
  9.    SourceFile      =   "C:\Program Files\Microsoft Visual Studio\MSDN98\98VS\1033\Samples\VB98\DHShowMe\Start.htm"
  10.    BuildFile       =   "c:\dhtml\Start.htm"
  11.    BuildMode       =   0
  12.    TypeLibCookie   =   163
  13.    AsyncLoad       =   0   'False
  14.    id              =   "DHTMLPage3"
  15.    ShowBorder      =   0   'False
  16.    ShowDetail      =   0   'False
  17.    AbsPos          =   0   'False
  18. End
  19. Attribute VB_Name = "Start"
  20. Attribute VB_GlobalNameSpace = False
  21. Attribute VB_Creatable = True
  22. Attribute VB_PredeclaredId = False
  23. Attribute VB_Exposed = True
  24. 'The onmouseout and onmouseover procedures in this sample turn each _
  25. 'individual element in the title line to large red letters when the _
  26. 'mouse is moved over them, then to navy when the mouse moves away.
  27.  
  28. Private Sub basic_onmouseout()
  29.     basic.Style.Color = "navy"
  30.  End Sub
  31.  
  32. Private Sub basic_onmouseover()
  33.     basic.Style.Color = "darkred"
  34.     basic.Style.FontSize = "30"
  35. End Sub
  36.  
  37. Private Function btnEventBub_onclick() As Boolean
  38.     'Open the EventBub page on click.
  39.     BaseWindow.navigate "Eventbub.htm"
  40.     
  41. End Function
  42.  
  43. Private Function btnLayout_onclick() As Boolean
  44.     'Open the layout page on click.
  45.     BaseWindow.navigate "Layout.htm"
  46. End Function
  47.  
  48. Private Function btnLists_onclick() As Boolean
  49.     BaseWindow.navigate "Lists.htm"
  50.     
  51. End Function
  52.  
  53. Private Function btnStyles_onclick() As Boolean
  54.     'Open the Styles page on click.
  55.     BaseWindow.navigate "Styles.htm"
  56. End Function
  57.  
  58. Private Function btnText_onclick() As Boolean
  59.     'Open the text page on click.
  60.     BaseWindow.navigate "Text.htm"
  61. End Function
  62.  
  63. Private Sub dynamic_onmouseout()
  64.     dynamic.Style.Color = "navy"
  65.   End Sub
  66.  
  67. Private Sub dynamic_onmouseover()
  68.     dynamic.Style.Color = "darkred"
  69.     dynamic.Style.FontSize = "30"
  70. End Sub
  71.  
  72. Private Sub HTML_onmouseout()
  73.     HTML.Style.Color = "navy"
  74.  End Sub
  75.  
  76. Private Sub HTML_onmouseover()
  77.     HTML.Style.Color = "darkred"
  78.     HTML.Style.FontSize = "30"
  79. End Sub
  80.  
  81. Private Sub in1_onmouseout()
  82.     in1.Style.Color = "navy"
  83.   End Sub
  84. Private Sub in1_onmouseover()
  85.     in1.Style.Color = "darkred"
  86.     in1.Style.FontSize = "30"
  87. End Sub
  88.  
  89. Private Sub visual_onmouseout()
  90.     visual.Style.Color = "navy"
  91. End Sub
  92.  
  93.  
  94. Private Sub visual_onmouseover()
  95.     visual.Style.Color = "darkred"
  96.     visual.Style.FontSize = "30"
  97. End Sub
  98.  
  99.